10 *=$C000
20 SEI
30 LDA #$20
40 STA FR+2
50 LDY #$00
60 LDA #$00
70 FR STA $2000,Y
80 INY
90 BNE FR
100 INC FR+2
110 LDX FR+2
120 CPX #$40
130 BNE FR
140 CLI
150 RTS